(custom-theme-directory): Use user-emacs-directory.

diff --git a/lisp/custom.el b/lisp/custom.el
index f5028ddc0d58770859508d0b03b5cad1a57fa9e9..98a301d80f19bbc806b365580ede3ffa310552af 100644 (file)
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -1009,10 +1009,7 @@ Every theme X has a property `provide-theme' whose value is \"X-theme\".
 ;;; Loading themes.
 
 (defcustom custom-theme-directory
-  (if (eq system-type 'ms-dos)
-        ;; MS-DOS cannot have initial dot.
-        "~/_emacs.d/"
-      "~/.emacs.d/")
+  user-emacs-directory
   "Directory in which Custom theme files should be written.
 `load-theme' searches this directory in addition to load-path.
 The command `customize-create-theme' writes the files it produces